00100	
00200	
00300	(DEFPROP Q 
00400	 (LAMBDA (L) (CONS (QUOTE QUOTE) (CDR L))) 
00500	MACRO)
00600	
00700	(DEFPROP PROPVAL 
00800	 (LAMBDA (L) (CONS (Q CADR) (CDR L))) 
00900	MACRO)
01000	
01100	(DEFPROP ACTONEXPR 
01200	 (LAMBDA(XPR)
01300	  (PROG (ACTION XX)
01400		(COND ((ATOM XPR) (GO FLUSH)))
01500		(SETQ ACTION (GETGET (CAR XPR) (Q COMPEFFECT)))
01600		(COND (ACTION (GO CHECKIT)))
01700	   FLUSH
01800		(FLUSHEXPR XPR)
01900		(RETURN NIL)
02000	   CHECKIT
02100		(SETQ XX (ERRSET ((PROPVAL ACTION) XPR) T))
02200		(COND ((ATOM XX)(BUGIT XPR) (PRINT NIL) (PRINT NIL) (GO FLUSH)) (T (RETURN NIL))))) 
02300	EXPR)
02400	
02500	(DEFPROP CMPBREAK 
02600	 (LAMBDA (M L) (PROG NIL (PRINTMSG L) (ERR NIL))) 
02700	EXPR)
02800	(DE BUGIT(MESS)
02900	(PROG (CHAN LINCNT)
03000	(SETQ CHAN(OUTC BUG NIL))
03100	(SETQ LINCNT 0)
03200	(COND((NOT(ATMARGIN))(LINEF 2)))
03300	(FLUSHEXPR MESS)
03400	(LINEF 1)(OUTC CHAN NIL)))